unit spr_BettaEnergy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shbl_Directory, PropFilerEh, XLSExportComp, PropStorageEh,
  FIBDatabase, pFIBDatabase, ExtCtrls, DB, FIBDataSet, pFIBDataSet,
  ActnList, Buttons, GridsEh, DBGridEh, StdCtrls, ComCtrls, ToolWin,
  DBCtrlsEh, Mask, DateUtils;

type
  TsprBettaEnergy = class(TshblDirectory)
    dsReferID: TFIBIntegerField;
    dsReferPMONTH: TFIBSmallIntField;
    dsReferPYEAR: TFIBSmallIntField;
    dsReferBETTA: TFIBFloatField;
    dsReferCREATEDATE: TFIBDateField;
    dsReferCREATEUSERID: TFIBIntegerField;
    dsReferMODIFYDATE: TFIBDateField;
    dsReferMODIFYUSERID: TFIBIntegerField;
    dsReferBDATE: TFIBDateField;
    DBComboBoxEh1: TDBComboBoxEh;
    DBNumberEditEh1: TDBNumberEditEh;
    DBEditEh1: TDBEditEh;
    Label1: TLabel;
    Label2: TLabel;
    procedure dsReferAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sprBettaEnergy: TsprBettaEnergy;

implementation

{$R *.dfm}

procedure TsprBettaEnergy.dsReferAfterInsert(DataSet: TDataSet);
begin
  inherited;
  dsReferPMONTH.Value := MonthOf(Now);
  dsReferPYEAR.Value := YearOf(Now);

end;

end.
